home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed48.d64 / exercise 10 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  151 lines
  1. 100 PRINT"[147]";:POKE53272,23:POKE53280,0:POKE53281,0:C=0
  2. 101 PRINT"[156]          [215][200][195] [197]NTERPRISES":GOSUB591
  3. 102 PRINT"[159]                                        [146]";
  4. 103 PRINT"                                        [146]";
  5. 104 PRINT"         [205]C[196]ONALD [197]NGLISH [211]ERIES        [146]";
  6. 105 PRINT"[159]                                        [146]";
  7. 106 PRINT"                                        [146]";
  8. 107 PRINT"               [215][207][210][196][160] [213][211][193][199][197]              [146]";
  9. 108 PRINT"[159]                                        [146]";
  10. 109 PRINT"                                        [146]";
  11. 110 PRINT"               LIE  -  LAY              [146]";
  12. 111 PRINT"[159]                                        [146]";
  13. 112 PRINT"[159]                                        [146]":GOSUB235
  14. 150 PRINT"[159][147] [215]HAT IS YOUR NAME?   "
  15. 152 INPUT N$
  16. 154 IF N$=""THEN152
  17. 156 GOSUB590
  18. 158 PRINT" [201]NSTRUCTIONS?  [217]/[206]
  19. 160 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]160
  20. 162 [139]R$[178]"Y"[167][137]400
  21. 163 [139]R$[178]"(null)"[167][137]400
  22. 190 [153]"OPENLOAD AND AWAY WE GO, "N$".":[141]591:[141]500:[141]590
  23. 192 [137]1000
  24. 235 [141]591:[141]560
  25. 236 [153]"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
  26. 237 [161]U$:[139]U$[179][177][199](32)[167]237
  27. 238 [142]
  28. 240 [141]592:[141]560
  29. 242 [153]"CONT    >>>> (null)(null)ATNLENVAL PEEKATN(null) <<<<   "
  30. 244 [161]U$:[139]U$[179][177][199](32)[167]244
  31. 246 [153]"ON                                       "
  32. 248 [142]
  33. 299 :
  34. 400 [153]"LOAD              RIGHT$NSTRUCTIONS            OPEN
  35. 402 PRINT" [212]HIS IS A WORD GAME FOR GRADE 3, 4,     AND 5 PUPILS."
  36. 404 PRINT" [201]T WILL HELP YOU WITH YOUR SPELLING.
  37. 406 [153]" (null)OUR TASK IS TO SELECT FORMS OF
  38. 408 PRINT" [158]LIE OR [158]LAY IN A FEW SENTENCES.
  39. 414 [153]"OPEN ATNFTER YOU TYPE IN THE WORD, PRESS        (null)VAL(null)(null)(null)(null) WAIT":[141]235
  40. 416 [153]"LOADOPEN     (null)OW, LET'S LOOK AT SOME HINTS."
  41. 418 [141]235:[137]600
  42. 499 :
  43. 500 [143] <YES>
  44. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  45. 510 [151]54296,15:[151]54277,42:[151]54278,250
  46. 515 [151]54276,23:[151]54273,23:[151]54272,191
  47. 520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  48. 525 [151]54296,0:[142]
  49. 530 [143] <NO>
  50. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  51. 540 [151]54296,15:[151]54277,18:[151]54278,242
  52. 545 [151]54276,33:[151]54273,4:[151]54272,48
  53. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  54. 555 [151]54296,0:[142]
  55. 560 [143] <BLIP>
  56. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  57. 570 [151]54296,7:[151]54277,42:[151]54278,250
  58. 575 [151]54276,23:[151]54273,23:[151]54272,191
  59. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  60. 585 [151]54296,0:[142]
  61. 590 [129]TM[178]1[164]500:[130]:[142]
  62. 591 [129]TM[178]1[164]1000:[130]:[142]
  63. 592 [129]TM[178]1[164]2000:[130]:[142]
  64. 593 [129]TM[178]1[164]3000:[130]:[142]
  65. 600 [153]"LOAD       (null)OME LEN(null)(null)VAL(null).......
  66. 605 PRINT"[159] [212]HE WORDS [158]LIE[159] AND [158]LAY[159] ARE EASY TO       USE."
  67. 610 PRINT"[153]         **** [210][197][205][197][205][194][197][210] ****
  68. 620 [153]" SYS(null)IEOPEN (LIE, LAY, LAIN) MEANS TO           LIE DOWN.
  69. 630 PRINT" [158][204]AY[159] (LAY, LAID, LAID) MEANS TO          PUT SOMETHING DOWN."
  70. 690 GOSUB235
  71. 695 GOTO190
  72. 999 :
  73. 1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
  74. 1005 P=1:C=15:H=0
  75. 1010 FORJ=1TOC
  76. 1015 READA$,B$,C$,D$
  77. 1020 PRINT"[152][147] [197][196]-48 [197]X-10 [156]"TAB(14)""N$,TAB(29)"[155][211]TEP:"P""
  78. 1025 PRINT""
  79. 1030 PRINT"[158]>>> [159]";A$;"
  80. 1035 [153]"    (null)ELECT THE CORRECT WORD FOR THIS        SENTENCE.
  81. 1037 PRINT"            "B$
  82. 1038 PRINT"            "C$
  83. 1040 GOSUB560:INPUT"[158]>>>> ";SK$
  84. 1045 IFSK$=D$THEN1090
  85. 1050 PRINT"[150]                  [206][207]                    [159]":GOSUB530:GOSUB591
  86. 1055 PRINT"[150] [212]HE ANSWER IS [158]"D$:H=H+1:GOSUB560:GOSUB560:GOSUB591
  87. 1070 GOSUB240:GOTO1095
  88. 1090 PRINT"                   [217][197][211]!                 [159][146]":GOSUB500:GOSUB591
  89. 1095 P=P+1:NEXT J
  90. 1999 :
  91. 2000 PRINT"[159][147][217]OU HAVE NOW COMPLETED [197]XERCISE 10.":GOSUB560:GOSUB591
  92. 2005 PRINT"[153][217]OU HAVE ANSWERED"C"QUESTIONS":GOSUB591
  93. 2007 IFH=0THEN2020
  94. 2010 IF H=1THENPRINT"[150][217]OU MADE ONLY ONE BLOOPER.":GOSUB530:GOTO2025
  95. 2012 PRINT"[150][217]OU MADE"H"BLOOPERS.":GOSUB530:GOTO2030
  96. 2020 IFH=0THENPRINT"[158]                [197][216][195][197][204][204][197][206][212]!              [146]":GOTO2035
  97. 2025 IFH=1THENPRINT"[159]              [199]OOD [215]ORK!                [146]":GOTO2035
  98. 2030 PRINT"[150]       [212]RY HARDER!  [196]O IT AGAIN!        [146]"
  99. 2035 PRINT"":GOSUB235
  100. 2050 PRINT"[153][147][217]OU HAVE A CHOICE:
  101. 2052 [153]"(null)RESS  (null) WAIT TO REPEAT VALXERCISE 10
  102. 2054 PRINT"[208]RESS  [199] [146] TO GO TO [197]XERCISE 11
  103. 2056 [153]"(null)RESS  (null) WAIT TO GO TO DISK MENU
  104. 2060 GETR$:IFR$<>"R"ANDR$<>"[210]"ANDR$<>"G"ANDR$<>"[199]"ANDR$<>"M"ANDR$<>"[205]"THEN2060
  105. 2062 IFR$="R"THENRESTORE:GOTO100
  106. 2064 IFR$="[210]"THENRESTORE:GOTO100
  107. 2066 IFR$="G"THENRESTORE:GOTO2080
  108. 2068 IFR$="[199]"THENRESTORE:GOTO2080
  109. 2070 PRINT"[147] [210]ETURNING TO THE DISK [205][197][206][213]
  110. 2072 [147]"MENU",8
  111. 2074 [138]
  112. 2076 [128]
  113. 2080 [153]"LOAD (null)OADING VALXERCISE 11
  114. 2082 LOAD"EXERCISE 11",8
  115. 2084 RUN
  116. 2086 END
  117. 2099 :
  118. 2100 REM THE GUTS OF THE UNIT
  119. 2110 DATA"[212]HE ROCK HAS [158]....[159] ON THE OCEAN          FLOOR FOR CENTURIES."
  120. 2112 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAIN"
  121. 2115 DATA"[212]HE DOG [158]....[159] THE BONE IN THE            HOLE IT HAD JUST DUG."
  122. 2117 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
  123. 2120 DATA"[194]ETTY WAS TIRED AND [158]....[159] DOWN ON        HER BED."
  124. 2122 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAY"
  125. 2125 DATA"[215]HERE COULD [201] HAVE [158]....[159] THE             TICKETS FOR THE DANCE?"
  126. 2127 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
  127. 2130 DATA"[158]....[159] THE BOOKS ON THE TABLE,           PLEASE."
  128. 2132 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","[204]AY"
  129. 2135 DATA"[194]ILL HAD [158]....[159] ON THE COUCH FOR          THREE HOURS BEFORE DINNER."
  130. 2137 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAIN"
  131. 2140 DATA"[193]DAM [158]....[159] HIS TRUMPET ON THE            DINING ROOM TABLE."
  132. 2142 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
  133. 2145 DATA"[201]'M GOING TO [158]....[159] DOWN FOR A            WHILE BECAUSE [201]'M TIRED."
  134. 2147 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LIE"
  135. 2150 DATA"[196]ID YOU [158]....[159] HAT ON THE STOVE?"
  136. 2152 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAY"
  137. 2155 DATA"[211]HE HAS [158]....[159] IN BED FOR TWO DAYS."
  138. 2157 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAIN"
  139. 2160 DATA"[199]EORGE [158]....[159] THE PILLOW ON THE           BED."
  140. 2162 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
  141. 2165 DATA"[212]HE SNOW [158]....[159] COOL AND CRISP AND        EVEN."
  142. 2167 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAY"
  143. 2170 DATA"[212]HE GOOSE [158]....[159] A LARGE EGG."
  144. 2172 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAID"
  145. 2175 DATA"[196]ON'T [158]....[159] ON THE FLOOR!"
  146. 2177 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LIE"
  147. 2180 DATA"[212]HEY [158]....[159] ON THE BEACH AND GOT          NICE TANS."
  148. 2182 DATA"LIE, LAY, LAIN","LAY, LAID, LAID","LAY"
  149. 2199 :
  150. 3000 REM WH CUMBERLAND 93:04:20
  151.